home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Scene 96
/
Scene 96 International Edition (Zyklop Software) (Disc 2) (1997).iso
/
misc
/
coding
/
sos6663d
/
postproc.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-05-08
|
694b
|
30 lines
program postproc;
{ This little Program cuts the Zeroed-Data from the end of the COM-File..
There are 708 bytes ZERODATA, it cuts 'em
Done by BLACK AXE from SoS in 1996 }
var buffer:pointer;
f,d:file;
size:word;
begin
writeln('POSTPROCESSOR by BLACK AXE from SoS (Seffer.ouni.Suen)');
writeln;
assign(f,'MINI3D.COM');
assign(d,'MINI3D.COM');
reset(f,1);
size:=filesize(f);
if size < 1000 then begin
writeln('Halting...');
writeln('Already processed!');
halt(1);
end;
getmem(buffer,2000);
blockread(f,buffer^,size);
close(f);
rewrite(d,1);
blockwrite(d,buffer^,size-708);
close(d);
freemem(buffer,2000);
end.